Interface improvements to cus-theme.el.
authorChong Yidong <cyd@stupidchicken.com>
Sat, 9 Oct 2010 21:54:20 +0000 (17:54 -0400)
committerChong Yidong <cyd@stupidchicken.com>
Sat, 9 Oct 2010 21:54:20 +0000 (17:54 -0400)
commit23cbaae8099bf0ac37530b4cb6a147283517e75e
tree188d7ef3a1920f1c424d3470418362943435b73e
parenteb36b3ac63fad921227795f7a4fe8d80309c710f
Interface improvements to cus-theme.el.

* cus-edit.el (custom-face-widget-to-spec)
(custom-face-get-current-spec, custom-face-state): New functions.
(custom-face-set, custom-face-mark-to-save)
(custom-face-value-create, custom-face-state-set): Use them.

* cus-theme.el (custom-theme--listed-faces): New var.
(customize-create-theme): Use *Custom Theme* as the buffer name.
Set revert-buffer-function.  Optional arg BUFFER.  Insert all
faces listed in custom-theme--listed-faces.
(custom-theme-revert): New function.
(custom-theme-add-variable, custom-theme-add-face): Insert at the
bottom of the list.
(custom-theme-write): Prompt for theme name if empty.
(custom-theme-write-variables): Use dolist.
(custom-theme-write-faces): Handle hidden (collapsed) widgets.
lisp/ChangeLog
lisp/cus-edit.el
lisp/cus-theme.el